home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
batch
/
library
/
stackey3
/
budemo.bat
< prev
next >
Wrap
DOS Batch File
|
1990-03-24
|
4KB
|
140 lines
:Batutil c(o) 1990 Barry Simon and Richard Wilson
: Version 1.0
echo off
goto code
:echo1
This batch file demonstrates what you can do with BATUTIL, a shareware program
to enhance your batch files. Everything that you see, hear and do until you
exit is done with DOS tools and BATUTIL.
Now hit a key to continue.
:echo2
I would like to save your environment to envirn.tmp and
later restore it but that file exists
May I erase it (Y/N)?
:echo3
The menu below is made with BATUTIL. Use arrow keys and <Enter> or Highlit
letters to choose; even use a mouse if you have one.
:echo4
BATUTIL will report on the environment, allow interactive editing and has
batch commands. We'll first show you your environment, then call you
into the environment editor and show you your environment again. Don't
worry about changing the environment; we'll restore it at the end of this
batch file.
Now hit a key
:fmain
Menu demonstration
Equipment determination
Input from User
controlling the enVironment
Display tools
Color demo
Sounds
Under the covers
eXit
@
Explore the options available when you make menus with BATUTIL
A sample of some of the hardware information you can determine with BATUTIL
Input from the user includes but goes way beyond Y/N questions
List, edit and otherwise manipulate the DOS environment area
See what you can do to your screens with BATUTIL
See all the colors in a simple panel made with BATUTIL
Hear more of BATUTIL's repitoire of sounds and tunes
Call up BATUTIL's help and explore how it works
Come back again soon, hear!
:code
if not exist batutil.exe goto nobatu
set cur=off
BATUTIL {CL}{RO 3}{CO 5}{EC CTRLALT$S}{SO 15}{EC Associates}{GE WA1}{SO 14}{EC proudly present$_$_}{CO 12}
BATUTIL {SO 18}{BP @1BB@1Ea@19t@1Au@1Ft@1Ci@1Dl}{SO 19}{FE %0 echo1}{AS}
set cur=
if not exist envirn.tmp goto efileOK
BATUTIL {CU -}{FE %0 echo2}{CU +}{GE Y N}
if errorlevel 2 goto end
erase envirn.tmp >nul
:efileOK
BATUTIL {set cur=}{SA envirn.tmp}{KI}{set foo=bar}[@E] >nul
if not errorlevel 136 goto env2smll
if not %foo%==bar goto envprob
set foo=
rem The set a, etc is to allow a large environemt in the shells made
rem with command/c; those files starts with set a= to recover
rem the space.
set a=aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
set b=aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
set bu$=I paid
set cur=off
BATUTIL {AT 0F}{CL}{FE %0 echo3}{MH BATUTIL SAMPLER}{FM %0 fmain}
goto menu%rc%
:mainmenu
BATUTIL {AT 0F}{CL}{MH BATUTIL SAMPLER}{FM %0 fmain}
goto menu%rc%
:menu1
%comspec%/c menudemo ok
goto mainmenu
:menu2
%comspec%/c equip frommain
goto mainmenu
:menu3
%comspec%/c inputdem frommain
goto mainmenu
:menu4
BATUTIL {LO envirn.tmp}>nul
set bu$=I paid
BATUTIL {CL}{FE %0 echo4}{AS}{EN}{EC $_Hit a key for environment editor}{AS}{ED}
BATUTIL {EN}{EC $_Hit a key to return to main menu}{AS}{KI}
set a=aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
set b=aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
set bu$=I paid
set cur=off
goto mainmenu
:menu5
%comspec%/c showdemo
goto mainmenu
:menu6
%comspec%/c colordem
goto mainmenu
:menu7
%comspec%/c soundemo
goto mainmenu
:menu8
batutil ?
goto mainmenu
:envprob
cls
echo Problem setting up environment for this demo. Sorry.
goto end
:env2smll
cls
echo Environment too small to run this demo. Sorry.
echo If you have DOS 3.2 or higher, type in
echo command /e:512
echo at the DOS command line, run budemo again and afterwards
echo type "exit" at the command line.
echo
echo Otherwise, you must have a directory other than the root in
echo your COMSPEC. Change COMSPEC to something like
echo comspec=C:\command.com
echo and try budemo again.
BATUTIL {LO envirn.tmp} >nul
erase envirn.tmp >nul
goto end
:menu0
:menu9
BATUTIL {LO envirn.tmp} >nul
erase envirn.tmp >nul
batutil I
goto end
:nobatu
echo BATUTIL.EXE must be in the default directory for this demo to run
echo Please copy it here and rerun
:end